
Public Class CPayment

    Private _intPayID As Integer
    Private _strPayType As String
    Private _strBillType As String
    Private _intBillID As Integer
    Private _intPayerID As Integer
    Private _dtPayDate As Date
    Private _strPaymode As String
    Private _strBankname As String
    Private _strChequeNo As String
    Private _strCardno As String
    Private _dtChqDate As Date
    Private _strCardtype As String
    Private _strHoldername As String
    Private _dblPayAmount As Double
    Private _dblConcession As Double
    Private _strPayRcptnum As String
    Private _strDescr As String
    Private _dtExpiryDate As Date

    Public Sub New()

    End Sub
    Public Property ExpiryDate() As Date
        Get
            Return _dtExpiryDate
        End Get
        Set(ByVal value As Date)
            _dtExpiryDate = value
        End Set
    End Property

    Public Property PayID() As Integer
        Get
            Return _intPayID
        End Get
        Set(ByVal value As Integer)
            _intPayID = value
        End Set
    End Property

    Public Property PayType() As String
        Get
            Return _strPayType
        End Get
        Set(ByVal value As String)
            _strPayType = value
        End Set
    End Property

    Public Property BillType() As String
        Get
            Return _strBillType
        End Get
        Set(ByVal value As String)
            _strBillType = value
        End Set
    End Property

    Public Property BillID() As Integer
        Get
            Return _intBillID
        End Get
        Set(ByVal value As Integer)
            _intBillID = value
        End Set
    End Property
    Public Property PayerID() As Integer
        Get
            Return _intPayerID
        End Get
        Set(ByVal value As Integer)
            _intPayerID = value
        End Set
    End Property

    Public Property PayDate() As Date
        Get
            Return _dtPayDate
        End Get
        Set(ByVal value As Date)
            _dtPayDate = value
        End Set
    End Property

    Public Property PayMode() As String
        Get
            Return _strPaymode
        End Get
        Set(ByVal value As String)
            _strPaymode = value
        End Set
    End Property
    
    Public Property Bankname() As String
        Get
            Return _strBankname
        End Get
        Set(ByVal value As String)
            _strBankname = value
        End Set
    End Property
    Public Property Cardno() As String
        Get
            Return _strCardno
        End Get
        Set(ByVal value As String)
            _strCardno = value
        End Set
    End Property

    
    Public Property Cardtype() As String
        Get
            Return _strCardtype
        End Get
        Set(ByVal value As String)
            _strCardtype = value
        End Set
    End Property
    Public Property Holdername() As String
        Get
            Return _strHoldername
        End Get
        Set(ByVal value As String)
            _strHoldername = value
        End Set
    End Property

    Public Property ChqDate() As Date
        Get
            Return _dtChqDate
        End Get
        Set(ByVal value As Date)
            _dtChqDate = value
        End Set
    End Property

    Public Property PayAmount() As Double
        Get
            Return _dblPayAmount
        End Get
        Set(ByVal value As Double)
            _dblPayAmount = value
        End Set
    End Property


    Public Property Concession() As Double
        Get
            Return _dblConcession
        End Get
        Set(ByVal value As Double)
            _dblConcession = value
        End Set
    End Property
    Public Property PayRcptnum() As String
        Get
            Return _strPayRcptnum
        End Get
        Set(ByVal value As String)
            _strPayRcptnum = value
        End Set
    End Property
    Public Property ChequeNo() As String
        Get
            Return _strChequeNo
        End Get
        Set(ByVal value As String)
            _strChequeNo = value
        End Set
    End Property
    Public Property Description() As String
        Get
            Return _strDescr
        End Get
        Set(ByVal value As String)
            _strDescr = value
        End Set
    End Property
End Class
